COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	INSTRUMENT TOOT
C00009 ENDMK
C⊗;
INSTRUMENT TOOT;
OSCIL[10](P4,10*MAG/P2,P5);
COSCIL(U1,P3*MAG,P6);<P6 IS TONE COLOR FOR 'TOOT'
OUTA←OUTA+U2;
END;
ARRAY F1,F2(512);SEG(F2);0 1 1 10 1 90 0 100;SYNTH(F1);1 1 999;
 
  < OVRLP.SCR  --  RANDOM NUMBER=     1
 PLAY;
 TOOT     0.000    0.226 C       1000.0 F2    F1   
;PRINT P1;< TOOT    1
 TOOT     0.226    0.176 C       1000.0 F2    F1   
;PRINT P1;< TOOT    2
 TOOT     0.402    0.220 C       1000.0 F2    F1   
;PRINT P1;< TOOT    3
 TOOT     0.622    0.187 C       1000.0 F2    F1   
;PRINT P1;< TOOT    4
 TOOT     0.809    0.203 C       1000.0 F2    F1   
;PRINT P1;< TOOT    5
 TOOT     1.012    0.187 C       1000.0 F2    F1   
;PRINT P1;< TOOT    6
 TOOT     1.199    0.219 C       1000.0 F2    F1   
;PRINT P1;< TOOT    7
 TOOT     1.418    0.176 C       1000.0 F2    F1   
;PRINT P1;< TOOT    8
 TOOT     1.594    0.224 C       1000.0 F2    F1   
;PRINT P1;< TOOT    9
 TOOT     1.818    0.171 C       1000.0 F2    F1   
;PRINT P1;< TOOT   10
 TOOT     1.989    0.223 C       1000.0 F2    F1   
;PRINT P1;< TOOT   11
 TOOT     2.212    0.177 C       1000.0 F2    F1   
;PRINT P1;< TOOT   12
 TOOT     2.389    0.216 C       1000.0 F2    F1   
;PRINT P1;< TOOT   13
 TOOT     2.605    0.208 C       1000.0 F2    F1   
;PRINT P1;< TOOT   14
 TOOT     2.813    0.195 C       1000.0 F2    F1   
;PRINT P1;< TOOT   15
 TOOT     3.008    0.174 C       1000.0 F2    F1   
;PRINT P1;< TOOT   16
 TOOT     3.182    0.198 C       1000.0 F2    F1   
;PRINT P1;< TOOT   17
 TOOT     3.380    0.200 C       1000.0 F2    F1   
;PRINT P1;< TOOT   18
 TOOT     3.580    0.227 C       1000.0 F2    F1   
;PRINT P1;< TOOT   19
 TOOT     3.807    0.198 C       1000.0 F2    F1   
;PRINT P1;< TOOT   20
 TOOT     4.005    0.195 C       1000.0 F2    F1   
;PRINT P1;< TOOT   21
 TOOT     4.200    0.221 C       1000.0 F2    F1   
;PRINT P1;< TOOT   22
 TOOT     4.421    0.187 C       1000.0 F2    F1   
;PRINT P1;< TOOT   23
 TOOT     4.608    0.178 C       1000.0 F2    F1   
;PRINT P1;< TOOT   24
 TOOT     4.786    0.193 C       1000.0 F2    F1   
;PRINT P1;< TOOT   25
 TOOT     4.979    0.200 C       1000.0 F2    F1   
;PRINT P1;< TOOT   26
 TOOT     5.179    0.221 C       1000.0 F2    F1   
;PRINT P1;< TOOT   27
 TOOT     5.400    0.191 C       1000.0 F2    F1   
;PRINT P1;< TOOT   28
 TOOT     5.591    0.183 C       1000.0 F2    F1   
;PRINT P1;< TOOT   29
 TOOT     5.774    0.202 C       1000.0 F2    F1   
;PRINT P1;< TOOT   30
 TOOT     5.976    0.214 C       1000.0 F2    F1   
;PRINT P1;< TOOT   31
 TOOT     6.190    0.188 C       1000.0 F2    F1   
;PRINT P1;< TOOT   32
 TOOT     6.378    0.228 C       1000.0 F2    F1   
;PRINT P1;< TOOT   33
 TOOT     6.606    0.188 C       1000.0 F2    F1   
;PRINT P1;< TOOT   34
 TOOT     6.794    0.189 C       1000.0 F2    F1   
;PRINT P1;< TOOT   35
 TOOT     6.983    0.206 C       1000.0 F2    F1   
;PRINT P1;< TOOT   36
 TOOT     7.189    0.224 C       1000.0 F2    F1   
;PRINT P1;< TOOT   37
 TOOT     7.413    0.200 C       1000.0 F2    F1   
;PRINT P1;< TOOT   38
 TOOT     7.613    0.194 C       1000.0 F2    F1   
;PRINT P1;< TOOT   39
 TOOT     7.807    0.223 C       1000.0 F2    F1   
;PRINT P1;< TOOT   40
 TOOT     8.030    0.187 C       1000.0 F2    F1   
;PRINT P1;< TOOT   41
 TOOT     8.217    0.179 C       1000.0 F2    F1   
;PRINT P1;< TOOT   42
 TOOT     8.396    0.195 C       1000.0 F2    F1   
;PRINT P1;< TOOT   43
 TOOT     8.591    0.203 C       1000.0 F2    F1   
;PRINT P1;< TOOT   44
 TOOT     8.794    0.227 C       1000.0 F2    F1   
;PRINT P1;< TOOT   45
 TOOT     9.021    0.200 C       1000.0 F2    F1   
;PRINT P1;< TOOT   46
 TOOT     9.221    0.198 C       1000.0 F2    F1   
;PRINT P1;< TOOT   47
 TOOT     9.419    0.174 C       1000.0 F2    F1   
;PRINT P1;< TOOT   48
 TOOT     9.593    0.194 C       1000.0 F2    F1   
;PRINT P1;< TOOT   49
 TOOT     9.787    0.190 C       1000.0 F2    F1   
;PRINT P1;< TOOT   50
 FINISH; < OVRLP.SCR